home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / SOUND / RAVELUTL.ARJ / WDEFINE.MA < prev    next >
Text File  |  1989-03-25  |  929b  |  43 lines
  1. @include \mh\wind.mh
  2.  
  3. #
  4. # Demo of WDEFINE input window type.
  5. #
  6.  
  7. # associated storage
  8. uchar x[1]
  9.  
  10. riff openWindows()
  11.     int wd
  12.  
  13.     # open DEFINE window, variable storage must be ??
  14.     # DEFINE window, map a list of "labels", i.e., strings
  15.     # to scalars. Upon input the topmost label is assigned
  16.     # the value 0, to label n-1.
  17.     #    upX,upY
  18.     #    lowX,lowY
  19.     #    title string
  20.     #    nolabels = n, number of input strings
  21.     #    fieldsize = 0    must be 0
  22.     #    nofields = 0    must be 0
  23.     #    pointer to uchar array of size 1
  24.     wd = inputWindow(WDEFINE, 10, 20, 14, 30, "section", 3, 0, 0, &x)
  25.     # enter labels
  26.     void windowLabel(wd, "Asection", 0)
  27.     void windowLabel(wd, "Bsection", 1)
  28.     void windowLabel(wd, "Csection", 2)
  29.  
  30.     # put up debug window to show changes
  31.     void outputWindow(WDEBUG,15,0,20,25,"printf") # halfway
  32. end
  33.  
  34. vco testit()
  35.     int rval
  36.      void openWindows()
  37.     for(;;)
  38.         rest    w
  39.         void printf("x = %d\n",x[0])
  40.     end
  41. end
  42.  
  43.